Option Explicit
Sub Q_Sample029()
    ']wޥζMicrosoft Shell Controls And Automation
    Dim mySh As Shell32.Shell
    Set mySh = CreateObject("Shell.Application")
    mySh.Explore ThisWorkbook.Path				'NƧ
    Set mySh = Nothing						'
End Sub
